﻿Imports Negocio
Imports Servicios

Public Class frmReportTask

    Private _tarea As New Tarea()

    Protected Overrides Sub PreLoad()
        Me.Icon = Icon.FromHandle(Global.SIPRO.My.Resources.Resources.Report.GetHicon())
    End Sub

    Sub New(t As Tarea)

        InitializeComponent()

        _tarea = t

    End Sub

    Private Sub frmReportProject_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim tar As RptTarea = GesInformes.CreateRptTask(_tarea)
        Me.RptProyectoBindingSource.DataSource = tar
        Me.RptActividadBindingSource.DataSource = tar.Actividades
        Me.RptRecursoBindingSource.DataSource = GesTareas.ObtenerRecursos(_tarea)
        Me.RVTarea.RefreshReport()

    End Sub

End Class